home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Xenosoft 2
/
Xenosoft 2 (Game collection)(1994).iso
/
bioforge
/
script
/
ai_marin.scp
< prev
next >
Wrap
Text File
|
1994-08-11
|
2KB
|
91 lines
{ MARINE_ENTER_COMBAT
w CURFIG CLEAR MR-HLS PICTURE 1
w CURFIG CLEAR MR-HLND PICTURE 2
w CURFIG CLEAR MR-HRS PICTURE 3
w CURFIG CLEAR MR-RHND PICTURE 4
}
{ MARINE_LEAVE_COMBAT
w CURFIG RESTORE MR-HLS
w CURFIG RESTORE MR-HLND
w CURFIG RESTORE MR-HRS
w CURFIG RESTORE MR-RHND
}
{ MARINE1_WOUNDS
@Ç¢ ( MARINE1)
@Ç¥ MARINE_WOUNDS
}
// FOLLOWING ARE LISTED THE POSSIBLE DECALS MARINE CAN HAVE APPLIED
// MAR0PIC.FLC = PICTURE (THIS IS THE FLIC CONTAINING ALL DECALS)
// (ORIGINAL TXM MUST BE REDRAWN BEFORE DECAL UNLESS NOTED) (RESTORE) (FISTS)
// _DMG FLAGS: 1-7 DAMAGE
//
// TEXTURE TXM FRAME _DMG DECAL
// NAME # FLAG
// HAND MR-HLS 1 HAND
// HAND MR-LHND 2 HAND
// HAND MR-HRS 3 HAND
// HAND MR-RHND 4 HAND
// CHEST MN-CHS1 5 1 CHEST DAM
// CHEST MN-CHS1 6 2 CHEST DAM 2
// BACK MR-BCK 7 3 BACK DAM
{ MARINE_WOUNDS
P ~ÇÇ
P ~Çü
P ~Çé
P ~Çâ
P ~Çä
P ~Çà
// DETERMINE HOW MUCH DAMAGE THE MARINE IS SHOWING.
~Çä = .ÇéÇä
~ÇÇ = @Ç» ( ~Çä , 1, 3 );
// DETERMINE HOW DAMAGED THE MARINE IS.
~Çà = .ÇéÇà / 4
~Çü = .ÇéÇÇ / ~Çà
I ( ~Çü < 1 ) THEN ~Çü = 0
I ( ~Çü > 3 ) THEN ~Çü = 3
~Çü = 3 - ~Çü
// IF MARINE IS SHOWING LESS DAMAGE THAN HE HAS, DRAW MORE DAMAGE.
I ( ~ÇÇ < ~Çü ) THEN
{
:TOP
~Çâ = @Çà ( 1, 3 )
I ( @ÇÅ ( ~Çä , ~Çâ ) = 1 ) THEN
J #Çä
E
I ~Çâ = 1 THEN w CURFIG DRAWONLY MN-CHS1 PICTURE 1 MARINE
I ~Çâ = 2 THEN w CURFIG DRAWONLY MN-CHS1 PICTURE 2 MARINE
I ~Çâ = 3 THEN w CURFIG DRAWONLY MR-BCK PICTURE 3 MARINE
a ( ~Çä , ~Çâ )
~ÇÇ += 1
}
.ÇéÇä = ~Çä
}
//$ 26 - version number